home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #056 (19xx)(APS Electronic).zip / Bavarian #056 (19xx)(APS Electronic).adf / gz.inp < prev    next >
Text File  |  1987-08-12  |  2KB  |  77 lines
  1. /**********************************************************************
  2.  * Full godzilla picture (top level file)
  3.  * Dave Wecker    V1.0  870705
  4.  **********************************************************************/
  5.  
  6. message "Defining needed macros"
  7. macros:
  8.     import "stdinp"
  9.     import "godzilla"
  10.  
  11.     macro building
  12.     object brick
  13.         point -1 -1 0
  14.         point -1  1 0
  15.         point  1  1 0
  16.         point  1 -1 0
  17.         point -1 -1 0
  18.         route
  19.         point 0 0 -1
  20.         point 0 0  1
  21.         close 1 1
  22.     text "digital" black
  23.         scale .15 .45 .3
  24.         roty -90
  25.         trans 1.02 .6 0
  26.     done building
  27.  
  28. message "Setting up global parameters"
  29. parameters:
  30.     StdView
  31. /*    scan from 0 to 400 rows 400 columns 312 mode 0 bpp 4 */
  32.     scan from 0 to 80 rows 80 columns 80 mode 0 bpp 4
  33.  
  34. message "Setting the necessary textures"
  35. textures:
  36.     StdTextures
  37.  
  38. message "Defining lights"
  39. lights:
  40.     spherical with color of red = 1 green = 1 and  blue = .5
  41.     with center of 600 300 600 at a distance of 900 and a radius of 0
  42.  
  43. message "Defining attribues"
  44. attributes:
  45.     StdAtts
  46.     GZAttributes
  47.  
  48. message "Defining the objects to display" 
  49. objects:
  50. /*
  51.     Godzilla
  52.     scale 3 4 3
  53.     roty  160
  54.     trans 100 -80 -70
  55. */
  56.     triangle grass
  57.     scale 3200 4267 1
  58.     rotx  90
  59.     roty  45
  60.     translate -900 -53 -400
  61. /*
  62.     fractal mountain
  63.         scale 1000 2000 1
  64.     rotx 90
  65.         roty 45
  66.         translate -850 -200 -650
  67. */
  68.     building
  69.     scale         40   27 30
  70.     translate     -80 -27 60
  71.     text "GODZILLA" GZAttLetter
  72.     scale 25 40 8
  73.     translate -105 53 15
  74.  
  75. message "Input completed, ready to process"
  76.  
  77.